OW H.P > MAX H.P ?
   JR C,YDYN21     ;NO,THEN JUMP
   LD A,B
YDYN21:
   DEC HL
   LD (HL),A
SI:
   POP HL
  LD  DE,40H
  ADD HL,DE
  POP BC
  }
;  JR YDYL20
YDYN20